COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN
C00003 ENDMK
C⊗;
BEGIN
	REAL A,B; REAL ARRAY MUMBLE[1:4]; STRING S;

	S←"FIRST NUMBER";
	OUTSTR S;
	S←INCHWL;
	REALSCAN(S,0);
	S←"SECOND NUMBER";
	OUTSTR S;
	S←INCHWL;
	REALSCAN(S,0);
	S←"WHAT DO YOU WANT TO DO";
	OUTSTR S;
	S←INCHWL;
	IF "ADD" THEN  A+B;
	"SUBTRACT"=A-B;
	"MULTIPLY"=A*B;
	"DIVIDE"=A/B;
	S←"ANSWER";
	OUTSTR S & MUMBLE
	REALSCAN (MUMBLE,0);        POO!